﻿<!--#include file="conn.inc"-->
<!--#include file="conn1.asp"-->
<!--#include file="md55.inc"-->
<!--#include file="qingclass.inc"-->
<!--#include file="md5.inc"-->
<%

dim qingtian
Set qingtian = New qingtian_class
cc=Request("cc")
ve=Request("ve")
if ve="" then ve=1
if cc<>"" and qingtian.nid<>0 Then
response.cookies("cc")=cc
else
if request.cookies("cc")<>"" Then cc=request.cookies("cc")
End if
strSQLL()
if qingtian.togin=false then
response.redirect "/Login.Asp?Url="&Server.URLencode("/index.asp")&""
end if
Response.Buffer = True
select case ve
case "0"
	Response.ExpiresAbsolute = Now() - 1 
	Response.Expires = 0 
	Response.CacheControl = "no-cache" 
	Response.AddHeader "Pragma", "no-cache"
	Response.AddHeader "Cache-Control", "no-cache, must-revalidate"
Response.ContentType = "text/vnd.wap.wml; charset=utf-8"
Response.Write "<?xml version=""1.0"" encoding=""utf-8""?>" & chr(13) & chr(10)
        Response.Write "<!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.2//EN"" ""http://www.wapforum.org/DTD/wml12.dtd"">" & chr(13) & chr(10)
        Response.Write "<wml>" & chr(13) & chr(10)
        Response.Write "<head>" & chr(13) & chr(10)
        Response.Write "<meta http-equiv=""Cache-Control"" content=""ust-revalidate"" forua=""true""/>" & chr(13) & chr(10)
        Response.Write "<meta http-equiv=""Cache-Control"" content=""no-cache"" forua=""true""/>" & chr(13) & chr(10)
        Response.Write "<meta http-equiv=""Cache-Control"" content=""max-age=0"" forua=""true""/>" & chr(13) & chr(10)
        Response.Write "<meta http-equiv=""Expires"" content=""0"" forua=""true""/>" & chr(13) & chr(10)
        Response.Write "<meta http-equiv=""Pragma"" content=""no-cache"" forua=""true""/>" & chr(13) & chr(10)
        Response.Write "</head>"
we0="<br/>"
hr="-------------<br/>"
case "1"
   Response.Write "<?xml version=""1.0"" encoding=""utf-8""?>" & chr(13) & chr(10)
   Response.Write "<!DOCTYPE html PUBLIC ""-//WAPFORUM//DTD XHTML Mobile 1.0//EN"" ""http://www.wapforum.org/DTD/xhtml-mobile10.dtd"">" & chr(13) & chr(10)
        Response.Write "<html xmlns=""http://www.w3.org/1999/xhtml"">" & chr(13) & chr(10)
        Response.Write "<head>" & chr(13) & chr(10) & "<meta http-equiv=""content-type"" content=""application/xhtml+xml; charset=UTF-8""/>" & chr(13) & chr(10) 
 Response.Write "<meta name=""keywords"" content=""晴天3g建站系统,3g建站,程序开发,定做程序,wap建站"" />" & chr(13) & chr(10)
 Response.Write "<link rel=""stylesheet"" href=""/css/a.css"" type=""text/css"" />" & chr(13) & chr(10)
 Response.Write "<div class=""footer"">"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
End Select
%>
